'From Pharo1.3 of 16 June 2011 [Latest update: #13307] on 23 November 2011 at 4:58:03 pm'!ObjetosDeJogo subclass: #Caixa	instanceVariableNames: ''	classVariableNames: ''	poolDictionaries: ''	category: 'Jogo-Sokoban-Inteligencia'!!Caixa methodsFor: 'as yet unclassified' stamp: 'kgk 11/23/2011 16:58'!movimentaPara: aDirecao noTabuleiro: oTabuleiro 		| tabuleiro direcao novaPosicao|	tabuleiro := oTabuleiro.	direcao := aDirecao.	novaPosicao:= direcao posicaoDestinoDadoPosicao: self posicao.			(tabuleiro celulaNaPosicao: novaPosicao) objeto: self.	(tabuleiro celulaNaPosicao: self posicao) limpa .		self posicao: novaPosicao.! !"-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- "!Caixa class	instanceVariableNames: ''!!Caixa class methodsFor: 'as yet unclassified' stamp: '6164 11/17/2011 17:22'!novaNaPosicao: aPosicao	| caixa |		caixa := super protectedNew.	caixa recebePosicao: aPosicao.	^ caixa.	! !